home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / wasm223.zip / BTEST.BAS < prev    next >
BASIC Source File  |  1993-05-04  |  356b  |  17 lines
  1. ' This QuickBASIC program uses the
  2. ' BIT function defined in BIT.ASM.
  3. '
  4. ' Compile with:
  5. '
  6. '   WASM bit bit.obj
  7. '   BC btest;
  8. '   LINK btest+bit;
  9.  
  10. DECLARE FUNCTION BIT& (BYVAL b%)        'define external function
  11.  
  12. FOR i% = 1 TO 32                        'for all 32 bits
  13.   PRINT HEX$(BIT&(i%))                  'display hex value
  14. NEXT
  15.  
  16. END
  17.